unit MyDatabase; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, sqlite3laz, Sqlite3DS, db, MyTypes;

type

  { TOptions }

  TdbServer = class
    dsTable: TDatasource;
    s3dServer: TSqlite3Dataset;
  private
    { private declarations }
  public
    { public declarations }
    procedure SetTo(Server:TNNTPServer);
    function GetFrom():TNNTPServer;
    constructor create();
  end;

{var
  Options: TOptions;}

implementation

 { TdbServer}

constructor TdbServer.create();
begin

end;

procedure TdbServer.SetTo(Server:TNNTPServer);
begin
 { s3dServer:=TSqlite3Dataset.Create;}
  s3dServer.Active:=True;
  s3dServer.AppendRecord([Nil, Server.Name, Server.Port, Server.Username, Server.Password]);
  s3dServer.ApplyUpdates;
end;

function TdbServer.GetFrom():TNNTPServer;
begin

end;

initialization

end.

